From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Sun, 5 Aug 2007 13:21:19 +0000 (+0000)
Subject: (math-nlfit-curve): Remove unnecessary variables.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~17515
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5e06916eca3e6277e71e05c75b5e26b3046d1e45;p=emacs.git

(math-nlfit-curve): Remove unnecessary variables.
(math-nlfit-givens): Let bind free variables.
---

diff --git a/lisp/calc/calc-nlfit.el b/lisp/calc/calc-nlfit.el
index 2880ff837bd..489599781f6 100644
--- a/lisp/calc/calc-nlfit.el
+++ b/lisp/calc/calc-nlfit.el
@@ -373,7 +373,8 @@
                 (math-nlfit-set-elt d j dj))))
           (setq i (1+ i))))
       (setq j (1+ j)))
-    (let ((i n))
+    (let ((i n)
+          s)
       (while (>= i 1)
         (math-nlfit-set-elt r i 0)
         (setq s (math-nlfit-get-elt d i))
@@ -408,7 +409,8 @@
                                        (calcFunc-sqrt
                                         (math-sub 1 (math-mul gamma gamma)))))))
             (let ((ri (math-nlfit-get-elt r i))
-                  (rj (math-nlfit-get-elt r j)))
+                  (rj (math-nlfit-get-elt r j))
+                  h)
               (setq h (math-add (math-mul gamma rj)
                          (math-mul sigma ri)))
               (setq ri (math-sub
@@ -672,8 +674,6 @@
                      (mapcar (lambda (x) (math-get-sdev x t)) ydata)
                    nil))
           (ydata (mapcar (lambda (x) (math-get-value x)) ydata))
-          (zzz (progn (setq j1 xdata j2 ydata j3 sdata) 1))
-
           (calc-curve-varnames nil)
           (calc-curve-coefnames nil)
           (calc-curve-nvars 1)